function dados = readpraat(filename)

%--------------------------------------------------------
% readpraat
%
% Le arquivo texto no formato de saida cronologico de dados
% dos marcadores segmentados no Praat.
%
% sintaxe
%
% y = readpraat('caminho do arquivo')
% 
% obs: y deve ser uma estruct.
%--------------------------------------------------------

arq = textread(filename, '%s');


cont1 = 1;
cont2 = 1;

dados.onset = [];
dados.offset = [];


for i=12:size(arq, 1)
	if (strcmp(arq(i), '1'))
		i = i + 1;
        dados.onset = cat(2,dados.onset,str2num(arq{i}));
        cont1 = cont1 + 1;
   
    else
    if (strcmp(arq(i), '2'))
		i = i + 1;        
        dados.offset = cat(2,dados.offset,str2num(arq{i}));
        cont2 = cont2 + 1;
    else
        i = i + 1;
    end
    end
end

clear i;
clear cont1;
clear cont2;